Text$ = "Enter the single line window title that will appear in your program's TitleBar. This cannot be a null string."
Label$ = "Step #2: Set the Application Title string"
AppTitle$ = "PiXCL Application Title"
Purpose$ = "<purpose>"
Author$ = "<author name (optional: company)>"
Msg$ = "Please enter the title, purpose and author's name."
Info$ = "Information"
MoreInfo$ = "Once all details are entered, these strings are written into the App source code, plus today's date."
If Audio = 1 Then WAVPlaySound("step2.wav",ASYNC,FILENAME,Res)
DialogBox(20,20,250,120,Label$,CAP_CTR,
350,110, 64,64, ICON01,
170,35,220,50,"&Next", 7, Res,
170,15,220,30,BTN,PUSH,"&Cancel",
25,2,205,14,STATIC, LEFT, Msg$ ,
4,15,160,27,EDIT,STRING,AppTitle$,AppTitle$,
4,30,160,42,EDIT,STRING,Purpose$,Purpose$,
4,45,160,57,EDIT,STRING,Author$,Author$,
4,58,150,98,BTN,GROUP,Info$,
8,66,148,96,STATIC,LEFT,MoreInfo$)
If Res = 1 Then Goto Leave
If AppTitle$ = "" Then Goto SetPositionDone
UseCaption(AppTitle$)
Msg1$ = "Click Yes to create a multi-part StatusBar at the bottom of the client area of your application. The format you select will appear on the Helper App.
Click No to continue. No StatusBar will be created. Click Cancel to terminate this Helper App. The StatusBar details will be saved, and later written into the PiXCL code that gets created."
Field1$ = "200"
Field2$ = "1"
Field3$ = "0"
Field4$ = "0"
If Audio = 1 Then WAVPlaySound("step3.wav",ASYNC,FILENAME,Res)
DialogBox(10,20,260,120,"Step #3: Do you want a StatusBar ?",CAP_NCTR,
400,140, 64,64, WINLOGO,
190,10,240,25,"&Yes", 8, Res,
190,30,240,45,BTN,PUSH,"&No",
190,50,240,65,BTN,PUSH,"&Cancel",
25,2,185,67,STATIC, LEFT, Msg1$,
15,68,185,73,BTN,GROUP,"",
20,75,41,87,EDIT,NUMBER,Field1$,xField1$,
42,75,63,87,EDIT,NUMBER,Field2$,xField2$,
64,75,85,87,EDIT,NUMBER,Field3$,xField3$,
86,75,106,87,EDIT,NUMBER,Field4$,xField4$)
If Res = 2 Then Goto Leave
If Res = 0
UseStatusBar = 1
If xField1$ = "1" Then xField1$ = "-1"
If xField2$ = "1" Then xField2$ = "-1"
If xField3$ = "1" Then xField3$ = "-1"
If xField4$ = "1" Then xField4$ = "-1"
{
If xField1$ = "-1" Then DebugMsgBox("Field#1 = -1")
If xField2$ = "-1" Then DebugMsgBox("Field#2 = -1")
If xField3$ = "-1" Then DebugMsgBox("Field#3 = -1")
If xField4$ = "-1" Then DebugMsgBox("Field#4 = -1")
}
Val(xField1$,Field1,Res)
Val(xField2$,Field2,Res)
Val(xField3$,Field3,Res)
Val(xField4$,Field4,Res)
Panes = 4
If Field4 = -1 Then Panes = 4
If Field3 = -1 Then Panes = 3
If Field2 = -1 Then Panes = 2
If Field1 = -1 Then Panes = 1 Field1 = -1 {defaults}
If Audio = 1 Then WAVPlaySound("step4.wav",ASYNC,FILENAME,Res)
MessageBox(OKCANCEL,1,QUESTION,
"The default color is white (RGB: 255,255,255). Click OK and a color
select dialog will appear. Select a standard color, or create a custom
color for the background.
This color will set the Helper App background, and will appear in
the PiXCL code created later.
Click Cancel to terminate this Helper App.",
"Step #4: Set the client area background color",Res)
If Res = 2 Then Goto Leave
Red = 255 Green = 255 Blue = 255
ChooseColor(SMALLRGB,Red,Green,Blue)
If Red = -1 Then Goto Leave
UseBackground(TRANSPARENT,Red,Green,Blue)
DrawBackground
{Use a custom dialog that asks for LARGE/SMALL, RAISED/FLAT mode}
Msg$ =
"Do you want to have a default toolbar button set ?
Click Yes to create a standard toolbar button set. You will need to edit the code that is created later to add extra toolbar buttons and button processing. Select the small or large, raised or flat button styles.
Click No to continue.
Click Cancel to terminate this Helper App."
If Audio = 1 Then WAVPlaySound("step5.wav",ASYNC,FILENAME,Res)
ToolSize1 = 1 {this sets the default style}
DialogBox(80,80,280,250,"Step #5: Defining a toolbar",CAP_CTR,